<script>on mousedownset cursor to 888put the number of cards into jrtif jrt = 1 thenput "Navigation possible avec 2 cartes ou plus !" into Abeep 1showDialog 1,111,A,trueexit mousedownend ifget the rect of meBarButton 1,jrt,1go card the resultend mousedownon mouseLeavechangeCursor Handend mouseLeaveon mouseWithinchangeCursor 888end mouseWithin</script>
<script>on mouseUpif the commandKey is "down" thengo to previous marked cardexit mouseUpend ifgo previous cardpositionend mouseUpon mouseDownplay tocend mouseDown</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>594</left>
<top>35</top>
<right>637</right>
<bottom>65</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>after</name>
<script>on mouseUpif the commandkey is "down" thengo to next marked cardexit mouseUpend ifgo next cardpositionend mouseUpon mouseDownplay tocend mouseDown</script>
<script>on mouseDownplay frapperepeat until the sound is "done"end repeatdomenu "Compact File"end mouseDownon mouseWithinchangeCursor 889end mouseWithinon mouseLeavechangeCursor Handend mouseLeave</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>19</left>
<top>294</top>
<right>185</right>
<bottom>362</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>JRTDateItems</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>33</top>
<right>34</right>
<bottom>57</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5544</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>IcôneTexte</name>
<script>on mousewithinchangeCursor 889if icon of me is 5545 thenif the number of marked cards ‚â• 1 thengo to next marked cardelseset icon of me to 5544end ifelse if icon of me is 5544 thengo next cardend ifend mousewithinon mouseDownplay tocif icon of me is 5544 thenset icon of me to 5545exit mouseDownelseset icon of me to 5544end ifend mouseDownon mouseLeavechangeCursor Handend mouseLeave</script>
<script>on mouseUpglobal actuelleLocalisation,leNombreDePagesput empty into actuelleLocalisationput empty into LenombreDePagesif the number of this card is 1 thenShowDialog 1,112,"",trueexit mouseUpend if-- •• protection pour documents à une seule carte ••if bg fld page is "1/1" or bg fld page is empty thenif icon of me is 6122 thenset icon of me to 6121set cantdelete of this card to falseplay cadenasexit mouseUpend ifif icon of me is 6121 thenset icon of me to 6122set cantdelete of this card to trueplay cadenasend ifexit mouseUpend if-- •• protection pour documents à plusieurs cartes ••put "/" into ReplaceWhatput "," into ReplaceByput Substitute(ReplaceWhat,ReplaceBy,bg field page) into decimaleput decimale into nombreAvecPointpush this cardlock screengo cd (bg fld ordre - (item 1 of nombreAvecPoint-1))put the number of this card into premierehyperverification -- pour connaître le nombre de pagesif cantdelete of this card is true thenput "The document to be deprotected is on " & leNombreDePages &¬" cards. Do you proceed? " into messageshowDialog 1,11,message,true,178,165if the result is not 1 thenput 1 into drapeauput empty into actuelleLocalisationput empty into LenombreDePagesexit mouseUpend ifset cursor to 4set cantDelete of this card to falseset icon of bg btn cadenas to 6121repeat with x = 1 to leNombreDePages - 1go card (premiere + x)set icon of bg btn cadenas to 6121set cantdelete of this card to falseend repeatpop cardplay cadenasexit mouseUpend ifif cantDelete of this card is false thenput "The document to be protected is on " & leNombreDePages &¬" cards. Do you proceed? " into messageshowDialog 1,11,message,true,178,165if the result is not 1 thenput 1 into drapeauput empty into actuelleLocalisationput empty into LenombreDePagesexit mouseUpend ifset cursor to 4set cantDelete of this card to trueset icon of bg btn cadenas to 6122repeat with x = 1 to leNombreDePages - 1go card (premiere + x)set icon of bg btn cadenas to 6122set cantdelete of this card to trueend repeatpop cardplay cadenasput empty into actuelleLocalisationput empty into LenombreDePagesexit mouseUpend ifend mouseUp</script>
